home *** CD-ROM | disk | FTP | other *** search
/ Robotics & Artificial Int…3 (Professional Edition) / Robotics & Artificial Intelligence Tools 2003 (Professional Edition).iso / neural network tool and application / nsinstall.exe / data1.cab / Demos_Files / Linear_Associator / ImageViewer.nsm < prev    next >
Encoding:
Text File  |  2002-03-08  |  1.6 KB  |  40 lines
  1. subtitleTextBox. setText ("")
  2. mainTextBox. setText ("")
  3.  
  4. activeBreadboard. deleteObject ( "arrowEngine" )
  5.  
  6. activeBreadboard. stampOnAndMove ( "ImageViewer" , "inputFile" )
  7. imageViewer. setName( "activeInputProbe") 
  8. activeBreadboard. stampOnAndMove ( "ImageViewer" , "criterion" )
  9. imageViewer. setName( "activeOutputProbe") 
  10. activeOutputProbe. setActiveAccessPoint ( "Pre-Activity" )
  11. activeBreadboard. stampOnAndMove ( "ImageViewer" , "desiredFile" )
  12. imageViewer. setName( "activeDesiredProbe") 
  13.  
  14. activeInputProbe. tileWindow (1,5,4,4)
  15. activeOutputProbe. tileWindow (2,5,7,8)
  16. activeDesiredProbe. tileWindow (3,5,7,8)
  17.  
  18. activeBreadboard. stampOnAndMove ( "ArrowEngine" , "activeInputProbe" )
  19. activeBreadboard. stampOnAndMove ( "ArrowEngine" , "activeOutputProbe" )
  20. activeBreadboard. stampOnAndMove ( "ArrowEngine" , "activeDesiredProbe" )
  21.  
  22. activeBreadboard. lockWindowUpdate ( )
  23. CreateLargeButtonMacroPath = macro. pathFromNS ( "Macros\create large button.nsm" )
  24. activeBreadboard. runMacro ( CreateLargeButtonMacroPath )
  25. controlButton. setText ( "Step Exemplar" )
  26. controlButton. moveTo ( 630 , 55 )
  27. ControlMacroPath = macro. pathFromNS ( "Macros\stepExemplar.nsm" )
  28. controlButton. setMacroPath ( ControlMacroPath )
  29. activeBreadboard. unlockWindowUpdate ( )
  30.  
  31. control. setEpochs ( 100 )
  32. control. resetNetwork (  )
  33. control. setLearning ( FALSE )
  34. control. stepExemplar ( )
  35.  
  36. NextMacroPath = macro. pathFromMacro ( "Training the network.nsm" )
  37. nextButton. setMacroPath ( NextMacroPath )
  38. SubtitleIndex = subtitleTextBox. setTextFromFile (TextBoxPath, SubtitleIndex)
  39. MainIndex = mainTextBox. setTextFromFile (TextBoxPath, MainIndex)
  40.